This files describes all fields, their formulas and VBA code of the CMANO ToT Planner v1.06

****************************
****************************
**                        **
**  SHEET STRIKE PLANNER  **
**                        **
****************************
****************************

F2-F8: ToT Role Timing Adjustment (Recon/CAP/OECM/SEAD/Strike/Strike, 2nd Wave/BDA)

D14: Date & Time of Impact [dd-mm-yyyy hh:mm:ss; 24h system, no AM/PM]


***************************
* Platform & Loadout Info *
***************************
C21: Platform Type (Pulldown, search with typing: .None/Aircraft/Facility/Ship/Submarine/Weapon)
  Input Field (ActiveX Combo Box with VBA: SP_PlatformType_Group_1)

D21: Platform Name (Pulldown, search with typing)
  Input Field (ActiveX Combo Box with VBA: SP_PlatformName_Group_1)

E21: Loadout Type (Pulldown, search with typing: .None/CAP/Sensor/Weapon)
  Input Field (ActiveX Combo Box with VBA: SP_LoadoutType_Group_1)

F21: Primary Loadout (Pulldown, search with typing)
  Input Field (ActiveX Combo Box with VBA: SP_PrimaryLoadout_Group_1)

G21: Platform Role (Pulldown, search with typing: Recon/CAP/OECM/SEAD/Strike/Strike, 2nd Wave/BDA)
  Input Field (ActiveX Combo Box: SP_PlatformRole_Group_1)

H21: Arrival @ ToT + x seconds
  =
  IF($C21=".None";0;
  LOOKUP($G21;Platform_Role;$F$2:$F$8))


***************************
* Location/Home-Base Info *
***************************
J21: Platform Location (Location/Home-Base Input-Field)  
  Input Field

K21: Platform Already Airborne [Checked checkbox sets Take-Off Time to 0]  
  Check Box (Form Control)
  
L21: Number of Runways
  Input Field

M21: Number of Catapults
  Input Field

N21: Number of Platforms in Group
  Input Field

O21: Platform Size
  =
  IF($C21=".None";"";
  IF($C21<>"Aircraft";"Not Applicable";
  LOOKUP($D21;Range_Aircraft_Name;Range_Aircraft_Size)))

P21: Size is ...	[Not needed, info only, relic from earlier build]
  =
  IF($C21=".None";"";
  IF($C21<>"Aircraft";"Not Applicable";
  IF($O21<12;"Small";
  IF($O21<=18;"Medium";
  IF($O21<=26;"Large";
  IF($O21>26;"Very Large"))))))

Q21: Platforms per Runway/Catapult
  =
  IF($C21=".None";"";
  IF($O21="Not Applicable";0;
  IF(AND($L21<1;$M21>0);1;
  IF($O21<12;2;
  IF($O21<18;2;
  IF($O21<=26;2;
  1))))))

R21: Estimated Take-Off Time
  =
  IF($C21=".None";"";
  IF($C21<>"Aircraft";0;
  IF($K21=TRUE;0;
  IF(AND($L21<1;$M21<1);"NO RUNWAY";
  IF($N21<1;"NO GROUP";
  IF($L21>0;(ROUNDUP($N21/($L21*$Q21);0)*30+120)/24/60/60;
  (ROUNDUP($N21/($M21*$Q21);0)*80)/24/60/60))))))


*********************
* WAYPOINTS 1 to 10 *
*********************
T21, AB21, AJ21, AR21, AZ21, BH21, BP21, BX21, CF21, CN21: Range to Waypoint (nm) 
  Input Field

U21, AC21, AK21, AS21, BA21, BI21, BQ21, BY21, CG21, CO21: True Altitude (ft)
  Input Field

V21, AD21, AL21, AT21, BB21, BJ21, BR21, BZ21, CH21, CP21: Throttle Setting (Pulldown: Loiter/Creep, Cruise, Military/Full, Afterburner/Flank)
  Input Field (Form Controll Combo Box)

W21, AE21, AM21, AU21, BC21, BK21, BS21, CA21, CI21, CQ21: Platform Speed (knts)
  =
  IF($C21=".None";"";
  IF($ES21="No Engine";"No Engine";
  IF($U21<=$FA21;
    IF($V21=1;$EW21;IF($V21=2;$EX21;IF($V21=3;$EY21;IF($V21=4;$EZ21))));
  IF($U21<=$FF21;
    IF(AND($C21="Aircraft";$V21=1);"No Loiter";
    IF($V21=1;"Wrong Altitude";
    IF($V21=2;$FC21;
    IF($V21=3;$FD21;
    IF($V21=4;$FE21
    )))));
  IF($U21<=$FK21;
    IF(AND($C21="Aircraft";$V21=1);"No Loiter";
    IF($V21=1;"Wrong Altitude";
    IF($V21=2;$FH21;
    IF($V21=3;$FI21;
    IF($V21=4;$FJ21
    )))));
  IF($U21>$FP21;"Alt Too High";
  IF(AND($C21="Aircraft";$V21=1);"No Loiter";
  IF($V21=1;"Wrong Altitude";
  IF($V21=2;$FM21;
  IF($V21=3;$FN21;
  IF($V21=4;$FO21)
  ))))))))))
  
 X21, AF21, AN21, AV21, BD21, BL21, BT21, CB21, CJ21, CR21: Estimated Transit Time
  =
  IF($C21=".None";"";
  IF(OR($T21=0;$T21="");0;
  IF(OR($W21 ="No Engine";$W21 ="Not Mobile");"SET RANGE=0";
  IF($W21="Alt too High";"LOWER ALT";
  IF($W21="Cruise Only";"THROTTLE";
  $T21/$W21/24)))))


**************************  
* WAYPOINT INITIAL POINT *
**************************
CV21: Range to Waypoint (nm)   
  Input Field

CW21: True Altitude (ft)
  Input Field

CX21: Throttle Setting (Pulldown: Loiter/Creep, Cruise, Military/Full, Afterburner/Flank)
  Input Field (Form Controll Combo Box)

CY21: Platform Speed (knts)
  =
  IF($C21=".None";"";
  IF($ES21="No Engine";"No Engine";
  IF($CW21<=$FA21;
    IF($CX21=1;$EW21;
    IF($CX21=2;$EX21;
    IF($CX21=3;$EY21;
    IF($CX21=4;$EZ21
    ))));
  IF($CW21<=$FF21;
    IF(AND($C21="Aircraft";$CX21=1);"No Loiter";
    IF($CX21=1;"Wrong Altitude";
    IF($CX21=2;$FC21;
    IF($CX21=3;$FD21;
    IF($CX21=4;$FE21
    )))));
  IF($CW21<=$FK21;
    IF(AND($C21="Aircraft";$CX21=1);"No Loiter";
    IF($CX21=1;"Wrong Altitude";
    IF($CX21=2;$FH21;
    IF($CX21=3;$FI21;
    IF($CX21=4;$FJ21
    )))));
  IF($CW21>$FP21;"Alt Too High";
  IF(AND($C21="Aircraft";$CX21=1);"No Loiter";
  IF($CX21=1;"Wrong Altitude";
  IF($CX21=2;$FM21;
  IF($CX21=3;$FN21;
  IF($CX21=4;$FO21
  )))))))))))
  
CZ21: Estimated Transit Time
  =
  IF($C21=".None";"";
  IF(OR($CV21=0;$CV21="");0;
  IF(OR($CY21 ="No Engine";$CY21 ="Not Mobile");"SET RANGE=0";
  IF($CY21="Alt too High";"LOWER ALT";
  IF($CY21="Cruise Only";"THROTTLE";
  $CV21/$CY21/24)))))


*******************************
* WAYPOINT TARGET AREA/STRIKE *
*******************************
DD21: Range IP to Target (nm)
  Input Field

DE21: True Altutude (ft) [not Above Ground Level altitude (AGL), air speed is defined by air density]
  Input Field

DF21: Throttle Setting (Pulldown: Loiter/Creep, Cruise, Military/Full, Afterburner/Flank)
  Input Field (Form Controll Combo Box)

DG21: Platform Speed (knts)
  =
  IF($C21=".None";"";
  IF($ES21="No Engine";"No Engine";
  IF($DE21<=$FA21;
    IF($DF21=1;$EW21;
    IF($DF21=2;$EX21;
    IF($DF21=3;$EY21;
    IF($DF21=4;$EZ21
    ))));
  IF($DE21<=$FF21;
    IF(AND($C21="Aircraft";$DF21=1);"No Loiter";
    IF($DF21=1;"Wrong Altitude";
    IF($DF21=2;$FC21;
    IF($DF21=3;$FD21;
    IF($DF21=4;$FE21
    )))));
  IF($DE21<=$FK21;
    IF(AND($C21="Aircraft";$DF21=1);"No Loiter";
    IF($DF21=1;"Wrong Altitude";
    IF($DF21=2;$FH21;
    IF($DF21=3;$FI21;
    IF($DF21=4;$FJ21
    )))));
  IF($DE21>$FP21;"Alt Too High";
  IF(AND($C21="Aircraft";$DF21=1);"No Loiter";
  IF($DF21=1;"Wrong Altitude";
  IF($DF21=2;$FM21;
  IF($DF21=3;$FN21;
  IF($DF21=4;$FO21
  )))))))))))

DI21: Primary Weapon Loadout [as a reminder]
  =$F21

DJ21: Max Range vs Surface
  =
  IF(OR($C21=".None";$E21=".None";$E21=".None/CAP/Sensor";$E21="No Unit");"";
  LOOKUP($F21;Range_Weapons_Name;Range_Weapons_MaxSurfaceRange))

DK21: Max Range vs Land (nm)
  =
  IF(OR($C21=".None";$E21=".None";$E21=".None/CAP/Sensor";$E21="No Unit");"";
  LOOKUP($F21;Range_Weapons_Name;Range_Weapons_MaxLandRange))

DL21: Max Weapon Range (nm)
  =
  IF(OR($C21=".None";$E21=".None";$E21=".None/CAP/Sensor";$E21="No Unit");"";
  IF($DJ21<=$DK21;$DK21;
  $DJ21))

DM21: Weapon Speed(knts)
  =
  IF(OR($C21=".None";$E21=".None/CAP/Sensor";$F21="No Unit");"";
  IF($DE21<=$FX21;$FW21;
  IF($DE21<=$GA21;$FZ21;
  IF($DE21<=$GD21;$GC21;
  $GF21))))

DN21: Range to Target @ Weapon Release (nm)
  Input Field

DO21: Estimated Transit Time
  =
  IF($C21=".None";"";
  IF(OR($DD21=0;$DD21="");0;
  IF(OR($DG21="No Engine";$DG21="Not Mobile");"SET RANGE=0";
  IF($DG21="Alt too High";"LOWER ALT";
  IF($DG21="Cruise Only";"THROTTLE";
  ($DD21-$DN21)/$DG21/24)))))
  
DP21: Estimated Time of Weapon Flight
  =
  IF($C21=".None";"";
  IF(OR($DN21=0;$DN21="";$E21=".None/CAP/Sensor";$F21="No Unit");0;
  IF($DN21>$DL21;"Out of Range!";
  $DN21/$DM21/24)))


**************************
* Strikegroup Statistics *
**************************
DT21: Total Transit Time (hh:mm:ss) [From Home-Base to WP1 + From WP1 to WP2 + .... + From WP IP to Weapon Release]
  =
  IF($C21=".None";"";
  $X21+$AF21+$AN21+$AV21+$BD21+$BL21+$BT21+$CB21+$CJ21+$CR21+$CZ21+$DO21)
  
DU21: Range of Transit (nm) [From Home-Base to WP1 + From WP1 to WP2 + .... + From WP IP to Weapon Release]
  =
  IF($C21=".None";"";
  $T21+$AB21+$AJ21+$AR21+$AZ21+$BH21+$BP21+$BX21+$CF21+$CN21+$CV21+($DD21-$DN21))
  
DV21: Average Platform Speed [Avg Speed of Total Transit Range, not needed, info only]
  =
  IF($C21=".None";"";
  IF($DU21=0;0;
  ($DU21/$DT21)/24))
  
DW21: Planned ToT [Date & Time of Impact (Cell D14) + Role Adjustement Time]
  =
  IF($C21=".None";"";
  $DX21-$DP21)
  
DX21: Planned Time of Impact
  =
  IF($C21=".None";"";
  $D$14+($H21/24/60/60))

DY21: Holding Time After Take-Off [If take-off conflicts exist, this field can be used to launch a group earlier and have it circling/holding to deconflict]
  Input Field (hh:mm:ss)


**********************
* STRIKE LAUNCH TIME *
**********************
EA21: MISSION LAUNCH TIME [Conditional Formatting: When cell contains 73051 (Date & Time: 01-01-2100 00:00:00), set text color to the background color, else set text color to black)
  =
  IF($C21=".None";73051;
  IF(NOT(ISNUMBER($R21));"ERROR LOCATION";
  IF(NOT(ISNUMBER($X21));"ERROR WP1";
  IF(NOT(ISNUMBER($AF21));"ERROR WP2";
  IF(NOT(ISNUMBER($AN21));"ERROR WP3";
  IF(NOT(ISNUMBER($AV21));"ERROR WP4";
  IF(NOT(ISNUMBER($BD21));"ERROR WP5";
  IF(NOT(ISNUMBER($BL21));"ERROR WP6";
  IF(NOT(ISNUMBER($BT21));"ERROR WP7";
  IF(NOT(ISNUMBER($CB21));"ERROR WP8";
  IF(NOT(ISNUMBER($CJ21));"ERROR WP9";
  IF(NOT(ISNUMBER($CR21));"ERROR WP10";
  IF(NOT(ISNUMBER($CZ21));"ERROR WP IP";
  IF(NOT(ISNUMBER($DO21));"ERROR WP TARGET";
  IF(NOT(ISNUMBER($DP21));"ERROR WEAPON";
  $D$14-$R21-$DY21-$DT21-$DP21+(H21/24/60/60))))))))))))))))
  
EB21: LAUNCH RANKING
  =
  IF($C21=".None";"";
  RANK($EA21;$EA$21:$EA$35;1)+COUNTIF($EA$21:$EA21;$EA21)-1)
  
EC21: TAKE-OFF CONFLICTS
  =
  IF(OR($C21<>"Aircraft";$K21=TRUE);"";
  IF(AND($C$22="Aircraft";$K22=FALSE;$J21=$J$22;OR(ABS($EA21-$EA$22)<=$R21;ABS($EA21-$EA$22)<=$R$22));"CONFLICT";
  IF(AND($C$23="Aircraft";$K23=FALSE;$J21=$J$23;OR(ABS($EA21-$EA$23)<=$R21;ABS($EA21-$EA$23)<=$R$23));"CONFLICT";
  IF(AND($C$24="Aircraft";$K24=FALSE;$J21=$J$24;OR(ABS($EA21-$EA$24)<=$R21;ABS($EA21-$EA$24)<=$R$24));"CONFLICT";
  IF(AND($C$25="Aircraft";$K25=FALSE;$J21=$J$25;OR(ABS($EA21-$EA$25)<=$R21;ABS($EA21-$EA$25)<=$R$25));"CONFLICT";
  IF(AND($C$26="Aircraft";$K26=FALSE;$J21=$J$26;OR(ABS($EA21-$EA$26)<=$R21;ABS($EA21-$EA$26)<=$R$26));"CONFLICT";
  IF(AND($C$27="Aircraft";$K27=FALSE;$J21=$J$27;OR(ABS($EA21-$EA$27)<=$R21;ABS($EA21-$EA$27)<=$R$27));"CONFLICT";
  IF(AND($C$28="Aircraft";$K28=FALSE;$J21=$J$28;OR(ABS($EA21-$EA$28)<=$R21;ABS($EA21-$EA$28)<=$R$28));"CONFLICT";
  IF(AND($C$29="Aircraft";$K29=FALSE;$J21=$J$29;OR(ABS($EA21-$EA$29)<=$R21;ABS($EA21-$EA$29)<=$R$29));"CONFLICT";
  IF(AND($C$30="Aircraft";$K30=FALSE;$J21=$J$30;OR(ABS($EA21-$EA$30)<=$R21;ABS($EA21-$EA$30)<=$R$30));"CONFLICT";
  IF(AND($C$31="Aircraft";$K31=FALSE;$J21=$J$31;OR(ABS($EA21-$EA$31)<=$R21;ABS($EA21-$EA$31)<=$R$31));"CONFLICT";
  IF(AND($C$32="Aircraft";$K32=FALSE;$J21=$J$32;OR(ABS($EA21-$EA$32)<=$R21;ABS($EA21-$EA$32)<=$R$32));"CONFLICT";
  IF(AND($C$33="Aircraft";$K33=FALSE;$J21=$J$33;OR(ABS($EA21-$EA$33)<=$R21;ABS($EA21-$EA$33)<=$R$33));"CONFLICT";
  IF(AND($C$34="Aircraft";$K34=FALSE;$J21=$J$34;OR(ABS($EA21-$EA$34)<=$R21;ABS($EA21-$EA$34)<=$R$34));"CONFLICT";
  IF(AND($C$35="Aircraft";$K35=FALSE;$J21=$J$35;OR(ABS($EA21-$EA$35)<=$R21;ABS($EA21-$EA$35)<=$R$35));"CONFLICT";
  "")))))))))))))))
  
EF21: Platform Name [As a reminder]
  =
  IF($C21=".None";"No Platform";
  $D21)

EH21: Location Name [As a reminder]
  =
  IF($C21=".None";"";
  IF($K21=TRUE;"Already Airborne";
  IF($J21="";"None Entered";
  $J21)))

*********************************************************************
* PLATFORM INFORMATION (USED IN ALTITUDE, THROTTLE SETTING & SPEED) *
*********************************************************************
ER21: Platform ID
  =
  IF($C21=".None";"No Platform";
  IF($C21="Aircraft";LOOKUP($D21;Range_Aircraft_Name;Range_Aircraft_AircraftID);
  IF($C21="Facility";LOOKUP($D21;Range_Facilities_Name;Range_Facilities_FacilityID);
  IF($C21="Ship";LOOKUP($D21;Range_Ships_Name;Range_Ships_ShipID);
  IF($C21="Submarine";LOOKUP($D21;Range_Submarines_Name;Range_Submarines_SubmarineID);
  LOOKUP($D21;Range_Weapons_Name;Range_Weapons_ID))))))

ES21: Platform Propulsion ID
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($C21="Aircraft";LOOKUP($ER21;Range_AircraftPropulsion_AircraftID;Range_AircraftPropulsion_PropulsionID);
          IF($C21="Facility";
           IF(ABS(INDEX(Range_Facilities_FacilityCategory;MATCH($ER21;Range_Facilities_FacilityID;0))-5000)<=2;"Mobile";
           IF(ABS(INDEX(Range_Facilities_FacilityCategory;MATCH($ER21;Range_Facilities_FacilityID;0))-5000)>2;"Not Mobile"));
          IF($C21="Ship";LOOKUP($ER21;Range_ShipPropulsion_ShipID;Range_ShipPropulsion_PropulsionID);
          IF($C21="Submarine";LOOKUP($ER21;Range_SubmarinePropulsion_SubmarineID;Range_SubmarinePropulsion_PropulsionID);
          IF($C21="Weapon";
            IFERROR(INDEX(Range_WeaponPropulsion_PropulsionID;MATCH($ER21;Range_WeaponPropulsion_WeaponID;0));"No Engine")
          ))))))

ET21: Notes on Unit Propulsion
  ARRAY:  =
          IF($C21=".None";"No Unit, No Engine";
          IF(OR($C21="Aircraft";$C21="Ship";$C21="Submarine");"";
          IF($C21="Facility";
           IF(INDEX(Range_Facilities_FacilityCategory;MATCH($ER21;Range_Facilities_FacilityID;0))=5001;"Motorized";
           IF(INDEX(Range_Facilities_FacilityCategory;MATCH($ER21;Range_Facilities_FacilityID;0))=5002;"On Foot";"No Engine"));
          IF($C21="Weapon";"Cruise Only";
          "Unknown"))))
          
EU21: Total Number of Records for PropulsionID Found [more of a check now, used in earlier version of this file]
  =
  IF(OR($C21=".None";$C21="Facility");0;
  COUNTIF(Range_PropulsionPerf_PropulsionID;$ES21))

EW21: Speed @ Altitude Band 1 - Loiter/Creep
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($C21="Aircraft";"No Loiter";
          IF($ES21="Not Mobile";"Not Mobile";
          IF($ET21="Motorized";30;
          IF($ET21="On Foot";5;
          IF($C21="Weapon";"Cruise Only";
          INDEX(Range_PropulsionPerf_Speed; MATCH(1; COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3; Range_PropulsionPerf_AltBand;Lists!$L$2;Range_PropulsionPerf_Throttle);0))))))))

EX21: Speed @ Altitude Band 1 - Cruise
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($ET21="Motorized";30;
          IF($ET21="On Foot";5;
          IF($ES21="No Engine";530;
          IF($ES21="Not Mobile";"Not Mobile";
          IF($C21<>"Facility";INDEX(Range_PropulsionPerf_Speed;MATCH(1;COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3;Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0));
          Unknown))))))

EY21: Speed @ Altitude Band 1 - Military/Full
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($ES21="Not Mobile";"Not Mobile";
          IF($ET21="Motorized";30;
          IF($ET21="On Foot";5;
          IF($C21="Weapon";"Cruise Only";
          INDEX(Range_PropulsionPerf_Speed; MATCH(1; COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3; Range_PropulsionPerf_AltBand;Lists!$L$4;Range_PropulsionPerf_Throttle);0)))))))


EZ21: Speed @ Altitude Band 1 - Afterburner/Flank
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($C21="Aircraft";
            IFERROR(INDEX(Range_PropulsionPerf_Speed; MATCH(1; COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3; Range_PropulsionPerf_AltBand;Lists!$L$5;Range_PropulsionPerf_Throttle);0));"No Afterburner");
          IF($ES21="Not Mobile";"Not Mobile";
          IF($ET21="Motorized";30;
          IF($ET21="On Foot";5;
          IF($C21="Weapon";"Cruise Only";
          INDEX(Range_PropulsionPerf_Speed; MATCH(1; COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3; Range_PropulsionPerf_AltBand;Lists!$L$5;Range_PropulsionPerf_Throttle);0))))))))
          
FA21: Max Altitude Band 1
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF(AND($C21<>"Aircraft";$C21<>"Weapon");0;
          IF($ES21="No Engine";82021;
          INDEX(Range_PropulsionPerf_MaxAltitude; MATCH(1; COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$3; Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0))/0.3048)))


FC21, FH21, FM21: Speed @ Altitude Band 2-4 - Cruise
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($ES21="No Engine";530;
          IF(OR($C21="Aircraft";$C21="Weapon");
            IFERROR(INDEX(Range_PropulsionPerf_Speed;MATCH(1;COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$4;Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0));
          "Alt Too High");"Alt Too High")))

FD21, FI21, FN21: Speed @ Altitude Band 2-4 - Military/Full
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($C21="Weapon";"Cruise Only";
          IF($C21="Aircraft";
            IFERROR(INDEX(Range_PropulsionPerf_Speed;MATCH(1;COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$4;Range_PropulsionPerf_AltBand;Lists!$L$4;Range_PropulsionPerf_Throttle);0));
          "Alt Too High");"Alt Too High")))
  
FE21, FJ21, FO21: Speed @ Altitude Band 2-4  - Afterburner/Flank
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($C21="Weapon";"Cruise Only";
          IF($C21="Aircraft";
            IFERROR(INDEX(Range_PropulsionPerf_Speed;MATCH(1;COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$4;Range_PropulsionPerf_AltBand;Lists!$L$5;Range_PropulsionPerf_Throttle);0));"No Afterburner");
          "Alt Too High")))
  
FF21, FK21, FP21: Max Altitude Band 2-4 
  ARRAY:  =
          IF($C21=".None";"No Platform";
          IF($ES21="No Engine";82021;
          IF(OR($C21="Aircraft";$C21="Weapon");
            IFERROR(INDEX(Range_PropulsionPerf_MaxAltitude;MATCH(1;COUNTIFS($ES21;Range_PropulsionPerf_PropulsionID;Lists!$G$4;Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0))/0.3048;
          "No Alt Band 2");"No Alt Band 2")))


***************************************************************************
* PRIMARY WEAPON INFORMATION (USED IN ALTITUDE, THROTTLE SETTING & SPEED) *
***************************************************************************
FT21: Primary Weapon ID
  =
  IF(OR($E21=".None/CAP/Sensor";$F21="No Unit");"No Weapon";
  IF($C21="Weapon";$ER21;
  LOOKUP($F21;Range_Weapons_Name;Range_Weapons_ID)))

FU21: Weapon Propulsion ID
  ARRAY:  =
          IF(OR($E21=".None/CAP/Sensor";$F21="No Unit");"No Engine";
          IF(ISERROR(MATCH($FT21;Range_WeaponPropulsion_WeaponID;0));"No Engine";
          LOOKUP($FT21;Range_WeaponPropulsion_WeaponID;Range_WeaponPropulsion_PropulsionID)))

FW21, FZ21, GC21, GF21: Speed @ Altitude Band 1-4
  ARRAY:  =
          IF(OR($E21=".None/CAP/Sensor";$F21="No Unit");"No Weapon";
          IF($FU21="No Engine";530;
          INDEX(Range_PropulsionPerf_Speed;MATCH(1;COUNTIFS($FU21;Range_PropulsionPerf_PropulsionID;Lists!$G$3;Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0))))

FX21, GA21, GD21, GG21: Max Altitude Band 1-4
  ARRAY:  =
          IF(OR($E21=".None/CAP/Sensor";$F21="No Unit");"No Weapon";
          IF($FU21="No Engine";82021;
          INDEX(Range_PropulsionPerf_MaxAltitude;MATCH(1;COUNTIFS($FU21;Range_PropulsionPerf_PropulsionID;Lists!$G$3;Range_PropulsionPerf_AltBand;Lists!$L$3;Range_PropulsionPerf_Throttle);0))/0.3048))



***************************************************************
***************************************************************
**                                                           **
**  VBA SCRIPTS ASSOCIATED WITH BUTTONS AND PULLDOWN MENU'S  **
**                                                           **
***************************************************************
***************************************************************


Private Sub SP_Clear_Group_All_Click()
    Range("C21").Value = ".None"
    Range("C22").Value = ".None"
    Range("C23").Value = ".None"
    Range("C24").Value = ".None"
    Range("C25").Value = ".None"
    Range("C26").Value = ".None"
    Range("C27").Value = ".None"
    Range("C28").Value = ".None"
    Range("C29").Value = ".None"
    Range("C30").Value = ".None"
    Range("C31").Value = ".None"
    Range("C32").Value = ".None"
    Range("C33").Value = ".None"
    Range("C34").Value = ".None"
    Range("C35").Value = ".None"
    Range("E21").Value = ".None/CAP/Sensor"
    Range("E22").Value = ".None/CAP/Sensor"
    Range("E23").Value = ".None/CAP/Sensor"
    Range("E24").Value = ".None/CAP/Sensor"
    Range("E25").Value = ".None/CAP/Sensor"
    Range("E26").Value = ".None/CAP/Sensor"
    Range("E27").Value = ".None/CAP/Sensor"
    Range("E28").Value = ".None/CAP/Sensor"
    Range("E29").Value = ".None/CAP/Sensor"
    Range("E30").Value = ".None/CAP/Sensor"
    Range("E31").Value = ".None/CAP/Sensor"
    Range("E32").Value = ".None/CAP/Sensor"
    Range("E33").Value = ".None/CAP/Sensor"
    Range("E34").Value = ".None/CAP/Sensor"
    Range("E35").Value = ".None/CAP/Sensor"
    Range("G21:G35").Value = "5. STRIKE"
    Range("K21:K35").Value = False
    Range("V21:V35,AD21:AD35,AL21:AL35").Value = 1
    Range("AT21:AT35,BB21:BB35,BJ21:BJ35").Value = 1
    Range("BR21:BR35,BZ21:BZ35,CH21:CH35").Value = 1
    Range("CP21:CP35,CX21:CX35,DF21:DF35").Value = 1
    Range("J21:J35,L21:L35,M21:M35,N21:N35").ClearContents
    Range("T21:T35,U21:U35,AB21:AB35,AC21:AC35").ClearContents
    Range("AJ21:AJ35,AK21:AK35,AR21:AR35,AS21:AS35").ClearContents
    Range("AZ21:AZ35,BA21:BA35,BH21:BH35,BI21:BI35").ClearContents
    Range("BP21:BP35,BQ21:BQ35,BX21:BX35,BY21:BY35").ClearContents
    Range("CF21:CF35,CG21:CG35,CN21:CN35,CO21:CO35").ClearContents
    Range("CV21:CV35,CW21:CW35,DD21:DD35,DE21:DE35").ClearContents
    Range("DN21:DN35").ClearContents
    Range("DY21:DY35").Value = 0
End Sub

Private Sub SP_Clear_Group_1_Click()
    Range("C21").Value = ".None"
    Range("E21").Value = ".None/CAP/Sensor"
    Range("G21").Value = "5. STRIKE"
    'Range("K21").Value = False
    Range("V21, AD21, AL21, AT21, BB21, BJ21, BR21, BZ21, CH21, CP21, CX21, DF21").Value = 1
    Range("J21, L21, M21, N21").Cells.ClearContents
    Range("T21, U21, AB21, AC21, AJ21, AK21, AR21, AS21, AZ21, BA21").Cells.ClearContents
    Range("BH21, BI21, BP21, BQ21, BX21, BY21, CF21, CG21, CN21, CO21").Cells.ClearContents
    Range("CV21, CW21").Cells.ClearContents
    Range("DD21, DE21").Cells.ClearContents
    Range("DN21").Cells.ClearContents
    Range("DY21").Value = 0
End Sub

Private Sub SP_Clear_Group_2_Click()
    Range("C22").Value = ".None"
    Range("E22").Value = ".None/CAP/Sensor"
    Range("G22").Value = "5. STRIKE"
    'Range("K22").Value = False
    Range("V22, AD22, AL22, AT22, BB22, BJ22, BR22, BZ22, CH22, CP22, CX22, DF22").Value = 1
    Range("J22, L22, M22, N22").Cells.ClearContents
    Range("T22, U22, AB22, AC22, AJ22, AK22, AR22, AS22, AZ22, BA22").Cells.ClearContents
    Range("BH22, BI22, BP22, BQ22, BX22, BY22, CF22, CG22, CN22, CO22").Cells.ClearContents
    Range("CV22, CW22").Cells.ClearContents
    Range("DD22, DE22").Cells.ClearContents
    Range("DN22").Cells.ClearContents
    Range("DY22").Value = 0
End Sub

Private Sub SP_Clear_Group_3_Click()
    Range("C23").Value = ".None"
    Range("E23").Value = ".None/CAP/Sensor"
    Range("G23").Value = "5. STRIKE"
    'Range("K23").Value = False
    Range("V23, AD23, AL23, AT23, BB23, BJ23, BR23, BZ23, CH23, CP23, CX23, DF23").Value = 1
    Range("J23, L23, M23, N23").Cells.ClearContents
    Range("T23, U23, AB23, AC23, AJ23, AK23, AR23, AS23, AZ23, BA23").Cells.ClearContents
    Range("BH23, BI23, BP23, BQ23, BX23, BY23, CF23, CG23, CN23, CO23").Cells.ClearContents
    Range("CV23, CW23").Cells.ClearContents
    Range("DD23, DE23").Cells.ClearContents
    Range("DN23").Cells.ClearContents
    Range("DY23").Value = 0
End Sub

Private Sub SP_Clear_Group_4_Click()
    Range("C24").Value = ".None"
    Range("E24").Value = ".None/CAP/Sensor"
    Range("G24").Value = "5. STRIKE"
    'Range("K24").Value = False
    Range("V24, AD24, AL24, AT24, BB24, BJ24, BR24, BZ24, CH24, CP24, CX24, DF24").Value = 1
    Range("J24, L24, M24, N24").Cells.ClearContents
    Range("T24, U24, AB24, AC24, AJ24, AK24, AR24, AS24, AZ24, BA24").Cells.ClearContents
    Range("BH24, BI24, BP24, BQ24, BX24, BY24, CF24, CG24, CN24, CO24").Cells.ClearContents
    Range("CV24, CW24").Cells.ClearContents
    Range("DD24, DE24").Cells.ClearContents
    Range("DN24").Cells.ClearContents
    Range("DY24").Value = 0
End Sub

Private Sub SP_Clear_Group_5_Click()
    Range("C25").Value = ".None"
    Range("E25").Value = ".None/CAP/Sensor"
    Range("G25").Value = "5. STRIKE"
    'Range("K25").Value = False
    Range("V25, AD25, AL25, AT25, BB25, BJ25, BR25, BZ25, CH25, CP25, CX25, DF25").Value = 1
    Range("J25, L25, M25, N25").Cells.ClearContents
    Range("T25, U25, AB25, AC25, AJ25, AK25, AR25, AS25, AZ25, BA25").Cells.ClearContents
    Range("BH25, BI25, BP25, BQ25, BX25, BY25, CF25, CG25, CN25, CO25").Cells.ClearContents
    Range("CV25, CW25").Cells.ClearContents
    Range("DD25, DE25").Cells.ClearContents
    Range("DN25").Cells.ClearContents
    Range("DY25").Value = 0
End Sub

Private Sub SP_Clear_Group_6_Click()
    Range("C26").Value = ".None"
    Range("E26").Value = ".None/CAP/Sensor"
    Range("G26").Value = "5. STRIKE"
    'Range("K26").Value = False
    Range("V26, AD26, AL26, AT26, BB26, BJ26, BR26, BZ26, CH26, CP26, CX26, DF26").Value = 1
    Range("J26, L26, M26, N26").Cells.ClearContents
    Range("T26, U26, AB26, AC26, AJ26, AK26, AR26, AS26, AZ26, BA26").Cells.ClearContents
    Range("BH26, BI26, BP26, BQ26, BX26, BY26, CF26, CG26, CN26, CO26").Cells.ClearContents
    Range("CV26, CW26").Cells.ClearContents
    Range("DD26, DE26").Cells.ClearContents
    Range("DN26").Cells.ClearContents
    Range("DY26").Value = 0
End Sub

Private Sub SP_Clear_Group_7_Click()
    Range("C27").Value = ".None"
    Range("E27").Value = ".None/CAP/Sensor"
    Range("G27").Value = "5. STRIKE"
    'Range("K27").Value = False
    Range("V27, AD27, AL27, AT27, BB27, BJ27, BR27, BZ27, CH27, CP27, CX27, DF27").Value = 1
    Range("J27, L27, M27, N27").Cells.ClearContents
    Range("T27, U27, AB27, AC27, AJ27, AK27, AR27, AS27, AZ27, BA27").Cells.ClearContents
    Range("BH27, BI27, BP27, BQ27, BX27, BY27, CF27, CG27, CN27, CO27").Cells.ClearContents
    Range("CV27, CW27").Cells.ClearContents
    Range("DD27, DE27").Cells.ClearContents
    Range("DN27").Cells.ClearContents
    Range("DY27").Value = 0
End Sub

Private Sub SP_Clear_Group_8_Click()
    Range("C28").Value = ".None"
    Range("E28").Value = ".None/CAP/Sensor"
    Range("G28").Value = "5. STRIKE"
    'Range("K28").Value = False
    Range("V28, AD28, AL28, AT28, BB28, BJ28, BR28, BZ28, CH28, CP28, CX28, DF28").Value = 1
    Range("J28, L28, M28, N28").Cells.ClearContents
    Range("T28, U28, AB28, AC28, AJ28, AK28, AR28, AS28, AZ28, BA28").Cells.ClearContents
    Range("BH28, BI28, BP28, BQ28, BX28, BY28, CF28, CG28, CN28, CO28").Cells.ClearContents
    Range("CV28, CW28").Cells.ClearContents
    Range("DD28, DE28").Cells.ClearContents
    Range("DN28").Cells.ClearContents
    Range("DY28").Value = 0
End Sub

Private Sub SP_Clear_Group_9_Click()
    Range("C29").Value = ".None"
    Range("E29").Value = ".None/CAP/Sensor"
    Range("G29").Value = "5. STRIKE"
    'Range("K29").Value = False
    Range("V29, AD29, AL29, AT29, BB29, BJ29, BR29, BZ29, CH29, CP29, CX29, DF29").Value = 1
    Range("J29, L29, M29, N29").Cells.ClearContents
    Range("T29, U29, AB29, AC29, AJ29, AK29, AR29, AS29, AZ29, BA29").Cells.ClearContents
    Range("BH29, BI29, BP29, BQ29, BX29, BY29, CF29, CG29, CN29, CO29").Cells.ClearContents
    Range("CV29, CW29").Cells.ClearContents
    Range("DD29, DE29").Cells.ClearContents
    Range("DN29").Cells.ClearContents
    Range("DY29").Value = 0
End Sub

Private Sub SP_Clear_Group_10_Click()
    Range("C30").Value = ".None"
    Range("E30").Value = ".None/CAP/Sensor"
    Range("G30").Value = "5. STRIKE"
    'Range("K30").Value = False
    Range("V30, AD30, AL30, AT30, BB30, BJ30, BR30, BZ30, CH30, CP30, CX30, DF30").Value = 1
    Range("J30, L30, L30, N30").Cells.ClearContents
    Range("T30, U30, AB30, AC30, AJ30, AK30, AR30, AS30, AZ30, BA30").Cells.ClearContents
    Range("BH30, BI30, BP30, BQ30, BX30, BY30, CF30, CG30, CN30, CO30").Cells.ClearContents
    Range("CV30, CW30").Cells.ClearContents
    Range("DD30, DE30").Cells.ClearContents
    Range("DN30").Cells.ClearContents
    Range("DY30").Value = 0
End Sub

Private Sub SP_Clear_Group_11_Click()
    Range("C31").Value = ".None"
    Range("E31").Value = ".None/CAP/Sensor"
    Range("G31").Value = "5. STRIKE"
    'Range("K31").Value = False
    Range("V31, AD31, AL31, AT31, BB31, BJ31, BR31, BZ31, CH31, CP31, CX31, DF31").Value = 1
    Range("J31, L31, L31, N31").Cells.ClearContents
    Range("T31, U31, AB31, AC31, AJ31, AK31, AR31, AS31, AZ31, BA31").Cells.ClearContents
    Range("BH31, BI31, BP31, BQ31, BX31, BY31, CF31, CG31, CN31, CO31").Cells.ClearContents
    Range("CV31, CW31").Cells.ClearContents
    Range("DD31, DE31").Cells.ClearContents
    Range("DN31").Cells.ClearContents
    Range("DY31").Value = 0
End Sub

Private Sub SP_Clear_Group_12_Click()
    Range("C32").Value = ".None"
    Range("E32").Value = ".None/CAP/Sensor"
    Range("G32").Value = "5. STRIKE"
    'Range("K32").Value = False
    Range("V32, AD32, AL32, AT32, BB32, BJ32, BR32, BZ32, CH32, CP32, CX32, DF32").Value = 1
    Range("J32, L32, L32, N32").Cells.ClearContents
    Range("T32, U32, AB32, AC32, AJ32, AK32, AR32, AS32, AZ32, BA32").Cells.ClearContents
    Range("BH32, BI32, BP32, BQ32, BX32, BY32, CF32, CG32, CN32, CO32").Cells.ClearContents
    Range("CV32, CW32").Cells.ClearContents
    Range("DD32, DE32").Cells.ClearContents
    Range("DN32").Cells.ClearContents
    Range("DY32").Value = 0
End Sub

Private Sub SP_Clear_Group_13_Click()
    Range("C33").Value = ".None"
    Range("E33").Value = ".None/CAP/Sensor"
    Range("G33").Value = "5. STRIKE"
    'Range("K33").Value = False
    Range("V33, AD33, AL33, AT33, BB33, BJ33, BR33, BZ33, CH33, CP33, CX33, DF33").Value = 1
    Range("J33, L33, L33, N33").Cells.ClearContents
    Range("T33, U33, AB33, AC33, AJ33, AK33, AR33, AS33, AZ33, BA33").Cells.ClearContents
    Range("BH33, BI33, BP33, BQ33, BX33, BY33, CF33, CG33, CN33, CO33").Cells.ClearContents
    Range("CV33, CW33").Cells.ClearContents
    Range("DD33, DE33").Cells.ClearContents
    Range("DN33").Cells.ClearContents
    Range("DY33").Value = 0
End Sub

Private Sub SP_Clear_Group_14_Click()
    Range("C34").Value = ".None"
    Range("E34").Value = ".None/CAP/Sensor"
    Range("G34").Value = "5. STRIKE"
    'Range("K34").Value = False
    Range("V34, AD34, AL34, AT34, BB34, BJ34, BR34, BZ34, CH34, CP34, CX34, DF34").Value = 1
    Range("J34, L34, L34, N34").Cells.ClearContents
    Range("T34, U34, AB34, AC34, AJ34, AK34, AR34, AS34, AZ34, BA34").Cells.ClearContents
    Range("BH34, BI34, BP34, BQ34, BX34, BY34, CF34, CG34, CN34, CO34").Cells.ClearContents
    Range("CV34, CW34").Cells.ClearContents
    Range("DD34, DE34").Cells.ClearContents
    Range("DN34").Cells.ClearContents
    Range("DY34").Value = 0
End Sub

Private Sub SP_Clear_Group_15_Click()
    Range("C35").Value = ".None"
    Range("E35").Value = ".None/CAP/Sensor"
    Range("G35").Value = "5. STRIKE"
    'Range("K35").Value = False
    Range("V35, AD35, AL35, AT35, BB35, BJ35, BR35, BZ35, CH35, CP35, CX35, DF35").Value = 1
    Range("J35, L35, L35, N35").Cells.ClearContents
    Range("T35, U35, AB35, AC35, AJ35, AK35, AR35, AS35, AZ35, BA35").Cells.ClearContents
    Range("BH35, BI35, BP35, BQ35, BX35, BY35, CF35, CG35, CN35, CO35").Cells.ClearContents
    Range("CV35, CW35").Cells.ClearContents
    Range("DD35, DE35").Cells.ClearContents
    Range("DN35").Cells.ClearContents
    Range("DY35").Value = 0
End Sub

Private Sub SP_LoadoutType_Group_1_Change()
    Dim Loadout_Type_Group_1 As String
    Loadout_Type_Group_1 = Range("E21").Value

    If Loadout_Type_Group_1 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_1").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_1.ListIndex = 0
    ElseIf Loadout_Type_Group_1 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_1").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_1.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_2_Change()
Dim Loadout_Type_Group_2 As String
    Loadout_Type_Group_2 = Range("E22").Value

    If Loadout_Type_Group_2 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_2").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_2.ListIndex = 0
    ElseIf Loadout_Type_Group_2 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_2").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_2.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_3_Change()
Dim Loadout_Type_Group_3 As String
    Loadout_Type_Group_3 = Range("E23").Value

    If Loadout_Type_Group_3 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_3").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_3.ListIndex = 0
    ElseIf Loadout_Type_Group_3 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_3").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_3.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_4_Change()
Dim Loadout_Type_Group_4 As String
    Loadout_Type_Group_4 = Range("E24").Value

    If Loadout_Type_Group_4 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_4").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_4.ListIndex = 0
    ElseIf Loadout_Type_Group_4 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_4").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_4.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_5_Change()
Dim Loadout_Type_Group_5 As String
    Loadout_Type_Group_5 = Range("E25").Value

    If Loadout_Type_Group_5 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_5").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_5.ListIndex = 0
    ElseIf Loadout_Type_Group_5 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_5").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_5.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_6_Change()
Dim Loadout_Type_Group_6 As String
    Loadout_Type_Group_6 = Range("E26").Value

    If Loadout_Type_Group_6 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_6").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_6.ListIndex = 0
    ElseIf Loadout_Type_Group_6 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_6").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_6.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_7_Change()
Dim Loadout_Type_Group_7 As String
    Loadout_Type_Group_7 = Range("E27").Value

    If Loadout_Type_Group_7 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_7").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_7.ListIndex = 0
    ElseIf Loadout_Type_Group_7 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_7").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_7.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_8_Change()
Dim Loadout_Type_Group_8 As String
    Loadout_Type_Group_8 = Range("E28").Value

    If Loadout_Type_Group_8 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_8").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_8.ListIndex = 0
    ElseIf Loadout_Type_Group_8 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_8").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_8.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_9_Change()
Dim Loadout_Type_Group_9 As String
    Loadout_Type_Group_9 = Range("E29").Value

    If Loadout_Type_Group_9 = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_9").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_9.ListIndex = 0
    ElseIf Loadout_Type_Group_9 <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_9").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_9.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_A_Change()
Dim Loadout_Type_Group_A As String
    Loadout_Type_Group_A = Range("E30").Value

    If Loadout_Type_Group_A = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_A").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_A.ListIndex = 0
    ElseIf Loadout_Type_Group_A <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_A").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_A.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_B_Change()
Dim Loadout_Type_Group_B As String
    Loadout_Type_Group_B = Range("E31").Value

    If Loadout_Type_Group_B = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_B").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_B.ListIndex = 0
    ElseIf Loadout_Type_Group_B <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_B").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_B.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_C_Change()
Dim Loadout_Type_Group_C As String
    Loadout_Type_Group_C = Range("E32").Value

    If Loadout_Type_Group_C = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_C").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_C.ListIndex = 0
    ElseIf Loadout_Type_Group_C <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_C").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_C.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_D_Change()
Dim Loadout_Type_Group_D As String
    Loadout_Type_Group_D = Range("E33").Value

    If Loadout_Type_Group_D = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_D").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_D.ListIndex = 0
    ElseIf Loadout_Type_Group_D <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_D").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_D.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_E_Change()
Dim Loadout_Type_Group_E As String
    Loadout_Type_Group_E = Range("E34").Value

    If Loadout_Type_Group_E = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_E").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_E.ListIndex = 0
    ElseIf Loadout_Type_Group_E <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_E").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_E.ListIndex = 0
    End If
End Sub

Private Sub SP_LoadoutType_Group_F_Change()
Dim Loadout_Type_Group_F As String
    Loadout_Type_Group_F = Range("E35").Value

    If Loadout_Type_Group_F = ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_F").ListFillRange = "Range_None_NoUnit"
        SP_PrimaryLoadout_Group_F.ListIndex = 0
    ElseIf Loadout_Type_Group_F <> ".None/CAP/Sensor" Then
        Worksheets("Strike Planner").OLEObjects("SP_PrimaryLoadout_Group_F").ListFillRange = "Range_Weapons_Name"
        SP_PrimaryLoadout_Group_F.ListIndex = 0
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_1_Change()
    If Range("C21").Value = "Weapon" Then
        Range("F21").Value = Range("D21").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_2_Change()
    If Range("C22").Value = "Weapon" Then
        Range("F22").Value = Range("D22").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_3_Change()
    If Range("C23").Value = "Weapon" Then
        Range("F23").Value = Range("D23").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_4_Change()
    If Range("C24").Value = "Weapon" Then
        Range("F24").Value = Range("D24").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_5_Change()
    If Range("C25").Value = "Weapon" Then
        Range("F25").Value = Range("D25").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_6_Change()
    If Range("C26").Value = "Weapon" Then
        Range("F26").Value = Range("D26").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_7_Change()
    If Range("C27").Value = "Weapon" Then
        Range("F27").Value = Range("D27").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_8_Change()
    If Range("C28").Value = "Weapon" Then
        Range("F28").Value = Range("D28").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_9_Change()
    If Range("C29").Value = "Weapon" Then
        Range("F29").Value = Range("D29").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_A_Change()
    If Range("C30").Value = "Weapon" Then
        Range("F30").Value = Range("D30").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_B_Change()
    If Range("C31").Value = "Weapon" Then
        Range("F31").Value = Range("D31").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_C_Change()
    If Range("C32").Value = "Weapon" Then
        Range("F32").Value = Range("D32").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_D_Change()
    If Range("C33").Value = "Weapon" Then
        Range("F33").Value = Range("D33").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_E_Change()
    If Range("C34").Value = "Weapon" Then
        Range("F34").Value = Range("D34").Value
    End If
End Sub

Private Sub SP_PrimaryLoadout_Group_F_Change()
    If Range("C35").Value = "Weapon" Then
        Range("F35").Value = Range("D35").Value
    End If
End Sub

Private Sub SP_WP1_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("V21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("V21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("V22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("V22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("V23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("V23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("V24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("V24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("V25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("V25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("V26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("V26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("V27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("V27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("V28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("V28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("V29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("V29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("V30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("V30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("V31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("V31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("V32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("V32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("V33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("V33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("V34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("V34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("V35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("V35").Value = 2
    End If
End Sub

Private Sub SP_WP10_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("CP21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CP21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("CP22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CP22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("CP23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CP23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("CP24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CP24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("CP25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CP25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("CP26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CP26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("CP27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CP27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("CP28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CP28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("CP29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CP29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("CP30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CP30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("CP31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CP31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("CP32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CP32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("CP33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CP33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("CP34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CP34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("CP35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CP35").Value = 2
    End If
End Sub

Private Sub SP_WP10_Throttles_Full_Click()
    If Range("C21").Value = ".None" Then
        Range("CP21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CP21").Value = 3
    End If
    If Range("C22").Value = ".None" Then
        Range("CP22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CP22").Value = 3
    End If
    If Range("C23").Value = ".None" Then
        Range("CP23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CP23").Value = 3
    End If
    If Range("C24").Value = ".None" Then
        Range("CP24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CP24").Value = 3
    End If
    If Range("C25").Value = ".None" Then
        Range("CP25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CP25").Value = 3
    End If
    If Range("C26").Value = ".None" Then
        Range("CP26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CP26").Value = 3
    End If
    If Range("C27").Value = ".None" Then
        Range("CP27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CP27").Value = 3
    End If
    If Range("C28").Value = ".None" Then
        Range("CP28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CP28").Value = 3
    End If
    If Range("C29").Value = ".None" Then
        Range("CP29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CP29").Value = 3
    End If
    If Range("C30").Value = ".None" Then
        Range("CP30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CP30").Value = 3
    End If
    If Range("C31").Value = ".None" Then
        Range("CP31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CP31").Value = 3
    End If
    If Range("C32").Value = ".None" Then
        Range("CP32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CP32").Value = 3
    End If
    If Range("C33").Value = ".None" Then
        Range("CP33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CP33").Value = 3
    End If
    If Range("C34").Value = ".None" Then
        Range("CP34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CP34").Value = 3
    End If
    If Range("C35").Value = ".None" Then
        Range("CP35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CP35").Value = 3
    End If
End Sub

Private Sub SP_WP11_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("CX21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CX21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("CX22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CX22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("CX23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CX23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("CX24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CX24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("CX25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CX25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("CX26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CX26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("CX27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CX27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("CX28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CX28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("CX29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CX29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("CX30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CX30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("CX31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CX31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("CX32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CX32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("CX33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CX33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("CX34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CX34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("CX35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CX35").Value = 2
    End If
End Sub

Private Sub SP_WP11_Throttles_Flank_Click()
    If Range("C21").Value = ".None" Then
        Range("CX21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CX21").Value = 4
    End If
    If Range("C22").Value = ".None" Then
        Range("CX22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CX22").Value = 4
    End If
    If Range("C23").Value = ".None" Then
        Range("CX23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CX23").Value = 4
    End If
    If Range("C24").Value = ".None" Then
        Range("CX24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CX24").Value = 4
    End If
    If Range("C25").Value = ".None" Then
        Range("CX25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CX25").Value = 4
    End If
    If Range("C26").Value = ".None" Then
        Range("CX26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CX26").Value = 4
    End If
    If Range("C27").Value = ".None" Then
        Range("CX27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CX27").Value = 4
    End If
    If Range("C28").Value = ".None" Then
        Range("CX28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CX28").Value = 4
    End If
    If Range("C29").Value = ".None" Then
        Range("CX29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CX29").Value = 4
    End If
    If Range("C30").Value = ".None" Then
        Range("CX30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CX30").Value = 4
    End If
    If Range("C31").Value = ".None" Then
        Range("CX31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CX31").Value = 4
    End If
    If Range("C32").Value = ".None" Then
        Range("CX32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CX32").Value = 4
    End If
    If Range("C33").Value = ".None" Then
        Range("CX33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CX33").Value = 4
    End If
    If Range("C34").Value = ".None" Then
        Range("CX34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CX34").Value = 4
    End If
    If Range("C35").Value = ".None" Then
        Range("CX35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CX35").Value = 4
    End If
End Sub

Private Sub SP_WP11_Throttles_Full_Click()
    If Range("C21").Value = ".None" Then
        Range("CX21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CX21").Value = 3
    End If
    If Range("C22").Value = ".None" Then
        Range("CX22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CX22").Value = 3
    End If
    If Range("C23").Value = ".None" Then
        Range("CX23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CX23").Value = 3
    End If
    If Range("C24").Value = ".None" Then
        Range("CX24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CX24").Value = 3
    End If
    If Range("C25").Value = ".None" Then
        Range("CX25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CX25").Value = 3
    End If
    If Range("C26").Value = ".None" Then
        Range("CX26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CX26").Value = 3
    End If
    If Range("C27").Value = ".None" Then
        Range("CX27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CX27").Value = 3
    End If
    If Range("C28").Value = ".None" Then
        Range("CX28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CX28").Value = 3
    End If
    If Range("C29").Value = ".None" Then
        Range("CX29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CX29").Value = 3
    End If
    If Range("C30").Value = ".None" Then
        Range("CX30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CX30").Value = 3
    End If
    If Range("C31").Value = ".None" Then
        Range("CX31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CX31").Value = 3
    End If
    If Range("C32").Value = ".None" Then
        Range("CX32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CX32").Value = 3
    End If
    If Range("C33").Value = ".None" Then
        Range("CX33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CX33").Value = 3
    End If
    If Range("C34").Value = ".None" Then
        Range("CX34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CX34").Value = 3
    End If
    If Range("C35").Value = ".None" Then
        Range("CX35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CX35").Value = 3
    End If
End Sub

Private Sub SP_WP12_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("DF21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("DF21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("DF22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("DF22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("DF23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("DF23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("DF24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("DF24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("DF25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("DF25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("DF26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("DF26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("DF27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("DF27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("DF28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("DF28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("DF29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("DF29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("DF30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("DF30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("DF31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("DF31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("DF32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("DF32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("DF33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("DF33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("DF34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("DF34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("DF35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("DF35").Value = 2
    End If
End Sub

Private Sub SP_WP12_Throttles_Flank_Click()
    If Range("C21").Value = ".None" Then
        Range("DF21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("DF21").Value = 4
    End If
    If Range("C22").Value = ".None" Then
        Range("DF22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("DF22").Value = 4
    End If
    If Range("C23").Value = ".None" Then
        Range("DF23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("DF23").Value = 4
    End If
    If Range("C24").Value = ".None" Then
        Range("DF24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("DF24").Value = 4
    End If
    If Range("C25").Value = ".None" Then
        Range("DF25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("DF25").Value = 4
    End If
    If Range("C26").Value = ".None" Then
        Range("DF26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("DF26").Value = 4
    End If
    If Range("C27").Value = ".None" Then
        Range("DF27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("DF27").Value = 4
    End If
    If Range("C28").Value = ".None" Then
        Range("DF28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("DF28").Value = 4
    End If
    If Range("C29").Value = ".None" Then
        Range("DF29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("DF29").Value = 4
    End If
    If Range("C30").Value = ".None" Then
        Range("DF30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("DF30").Value = 4
    End If
    If Range("C31").Value = ".None" Then
        Range("DF31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("DF31").Value = 4
    End If
    If Range("C32").Value = ".None" Then
        Range("DF32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("DF32").Value = 4
    End If
    If Range("C33").Value = ".None" Then
        Range("DF33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("DF33").Value = 4
    End If
    If Range("C34").Value = ".None" Then
        Range("DF34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("DF34").Value = 4
    End If
    If Range("C35").Value = ".None" Then
        Range("DF35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("DF35").Value = 4
    End If
End Sub

Private Sub SP_WP12_Throttles_Full_Click()
    If Range("C21").Value = ".None" Then
        Range("DF21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("DF21").Value = 3
    End If
    If Range("C22").Value = ".None" Then
        Range("DF22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("DF22").Value = 3
    End If
    If Range("C23").Value = ".None" Then
        Range("DF23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("DF23").Value = 3
    End If
    If Range("C24").Value = ".None" Then
        Range("DF24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("DF24").Value = 3
    End If
    If Range("C25").Value = ".None" Then
        Range("DF25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("DF25").Value = 3
    End If
    If Range("C26").Value = ".None" Then
        Range("DF26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("DF26").Value = 3
    End If
    If Range("C27").Value = ".None" Then
        Range("DF27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("DF27").Value = 3
    End If
    If Range("C28").Value = ".None" Then
        Range("DF28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("DF28").Value = 3
    End If
    If Range("C29").Value = ".None" Then
        Range("DF29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("DF29").Value = 3
    End If
    If Range("C30").Value = ".None" Then
        Range("DF30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("DF30").Value = 3
    End If
    If Range("C31").Value = ".None" Then
        Range("DF31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("DF31").Value = 3
    End If
    If Range("C32").Value = ".None" Then
        Range("DF32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("DF32").Value = 3
    End If
    If Range("C33").Value = ".None" Then
        Range("DF33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("DF33").Value = 3
    End If
    If Range("C34").Value = ".None" Then
        Range("DF34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("DF34").Value = 3
    End If
    If Range("C35").Value = ".None" Then
        Range("DF35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("DF35").Value = 3
    End If
End Sub

Private Sub SP_WP2_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("AD21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("AD21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("AD22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("AD22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("AD23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("AD23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("AD24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("AD24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("AD25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("AD25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("AD26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("AD26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("AD27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("AD27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("AD28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("AD28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("AD29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("AD29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("AD30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("AD30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("AD31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("AD31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("AD32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("AD32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("AD33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("AD33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("AD34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("AD34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("AD35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("AD35").Value = 2
    End If
End Sub

Private Sub SP_WP3_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("AL21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("AL21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("AL22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("AL22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("AL23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("AL23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("AL24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("AL24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("AL25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("AL25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("AL26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("AL26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("AL27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("AL27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("AL28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("AL28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("AL29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("AL29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("AL30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("AL30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("AL31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("AL31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("AL32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("AL32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("AL33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("AL33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("AL34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("AL34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("AL35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("AL35").Value = 2
    End If
End Sub

Private Sub SP_WP4_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("AT21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("AT21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("AT22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("AT22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("AT23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("AT23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("AT24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("AT24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("AT25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("AT25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("AT26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("AT26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("AT27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("AT27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("AT28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("AT28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("AT29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("AT29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("AT30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("AT30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("AT31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("AT31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("AT32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("AT32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("AT33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("AT33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("AT34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("AT34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("AT35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("AT35").Value = 2
    End If
End Sub

Private Sub SP_WP5_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("BB21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("BB21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("BB22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("BB22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("BB23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("BB23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("BB24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("BB24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("BB25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("BB25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("BB26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("BB26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("BB27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("BB27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("BB28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("BB28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("BB29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("BB29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("BB30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("BB30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("BB31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("BB31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("BB32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("BB32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("BB33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("BB33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("BB34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("BB34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("BB35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("BB35").Value = 2
    End If
End Sub

Private Sub SP_WP6_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("BJ21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("BJ21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("BJ22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("BJ22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("BJ23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("BJ23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("BJ24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("BJ24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("BJ25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("BJ25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("BJ26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("BJ26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("BJ27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("BJ27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("BJ28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("BJ28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("BJ29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("BJ29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("BJ30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("BJ30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("BJ31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("BJ31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("BJ32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("BJ32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("BJ33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("BJ33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("BJ34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("BJ34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("BJ35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("BJ35").Value = 2
    End If
End Sub

Private Sub SP_WP7_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("BR21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("BR21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("BR22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("BR22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("BR23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("BR23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("BR24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("BR24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("BR25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("BR25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("BR26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("BR26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("BR27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("BR27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("BR28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("BR28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("BR29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("BR29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("BR30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("BR30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("BR31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("BR31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("BR32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("BR32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("BR33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("BR33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("BR34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("BR34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("BR35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("BR35").Value = 2
    End If
End Sub

Private Sub SP_WP8_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("BZ21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("BZ21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("BZ22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("BZ22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("BZ23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("BZ23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("BZ24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("BZ24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("BZ25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("BZ25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("BZ26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("BZ26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("BZ27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("BZ27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("BZ28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("BZ28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("BZ29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("BZ29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("BZ30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("BZ30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("BZ31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("BZ31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("BZ32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("BZ32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("BZ33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("BZ33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("BZ34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("BZ34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("BZ35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("BZ35").Value = 2
    End If
End Sub

Private Sub SP_WP9_Throttles_Cruise_Click()
    If Range("C21").Value = ".None" Then
        Range("CH21").Value = 1
    ElseIf Range("C21").Value <> ".None" Then
        Range("CH21").Value = 2
    End If
    If Range("C22").Value = ".None" Then
        Range("CH22").Value = 1
    ElseIf Range("C22").Value <> ".None" Then
        Range("CH22").Value = 2
    End If
    If Range("C23").Value = ".None" Then
        Range("CH23").Value = 1
    ElseIf Range("C23").Value <> ".None" Then
        Range("CH23").Value = 2
    End If
    If Range("C24").Value = ".None" Then
        Range("CH24").Value = 1
    ElseIf Range("C24").Value <> ".None" Then
        Range("CH24").Value = 2
    End If
    If Range("C25").Value = ".None" Then
        Range("CH25").Value = 1
    ElseIf Range("C25").Value <> ".None" Then
        Range("CH25").Value = 2
    End If
    If Range("C26").Value = ".None" Then
        Range("CH26").Value = 1
    ElseIf Range("C26").Value <> ".None" Then
        Range("CH26").Value = 2
    End If
    If Range("C27").Value = ".None" Then
        Range("CH27").Value = 1
    ElseIf Range("C27").Value <> ".None" Then
        Range("CH27").Value = 2
    End If
    If Range("C28").Value = ".None" Then
        Range("CH28").Value = 1
    ElseIf Range("C28").Value <> ".None" Then
        Range("CH28").Value = 2
    End If
    If Range("C29").Value = ".None" Then
        Range("CH29").Value = 1
    ElseIf Range("C29").Value <> ".None" Then
        Range("CH29").Value = 2
    End If
    If Range("C30").Value = ".None" Then
        Range("CH30").Value = 1
    ElseIf Range("C30").Value <> ".None" Then
        Range("CH30").Value = 2
    End If
    If Range("C31").Value = ".None" Then
        Range("CH31").Value = 1
    ElseIf Range("C31").Value <> ".None" Then
        Range("CH31").Value = 2
    End If
    If Range("C32").Value = ".None" Then
        Range("CH32").Value = 1
    ElseIf Range("C32").Value <> ".None" Then
        Range("CH32").Value = 2
    End If
    If Range("C33").Value = ".None" Then
        Range("CH33").Value = 1
    ElseIf Range("C33").Value <> ".None" Then
        Range("CH33").Value = 2
    End If
    If Range("C34").Value = ".None" Then
        Range("CH34").Value = 1
    ElseIf Range("C34").Value <> ".None" Then
        Range("CH34").Value = 2
    End If
    If Range("C35").Value = ".None" Then
        Range("CH35").Value = 1
    ElseIf Range("C35").Value <> ".None" Then
        Range("CH35").Value = 2
    End If
End Sub

Private Sub SP_PlatformType_Group_1_Change()
    Dim Platform_Type_Group_1 As String
    Platform_Type_Group_1 = Range("C21").Value
    Range("V21,AD21,AL21,AT21,BB21,BJ21,BR21,BZ21,CH21,CP21,CX21").Value = 2
    Range("DF21").Value = 3

    If Platform_Type_Group_1 = ".None" Then
        Range("G21").Value = "5. STRIKE"
        Range("E21").Value = ".None/CAP/Sensor"
        Range("K21").Value = False
        Range("V21,AD21,AL21,AT21,BB21,BJ21,BR21,BZ21,CH21,CP21,CX21,DF21").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_1.ListIndex = 0
    ElseIf Platform_Type_Group_1 = "Aircraft" Then
        Range("E21").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_1.ListIndex = 0
    ElseIf Platform_Type_Group_1 = "Facility" Then
        Range("E21").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_1.ListIndex = 0
    ElseIf Platform_Type_Group_1 = "Ship" Then
        Range("E21").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_1.ListIndex = 0
    ElseIf Platform_Type_Group_1 = "Submarine" Then
        Range("E21").Value = "Weapon"
        Range("CP21,CX21,DF21").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_1.ListIndex = 0
    ElseIf Platform_Type_Group_1 = "Weapon" Then
        Range("E21").Value = "Weapon"
        Range("F21").Value = Range("D21").Value
        Range("DF21").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_1").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_1.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_1_Change()
    If Range("C21").Value = "Weapon" Then
        Range("F21").Value = Range("D21").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_2_Change()
    Dim Platform_Type_Group_2 As String
    Platform_Type_Group_2 = Range("C22").Value
    Range("V22,AD22,AL22,AT22,BB22,BJ22,BR22,BZ22,CH22,CP22,CX22").Value = 2
    Range("DF22").Value = 3

    If Platform_Type_Group_2 = ".None" Then
        Range("G22").Value = "5. STRIKE"
        Range("E22").Value = ".None/CAP/Sensor"
        Range("K22").Value = False
        Range("V22,AD22,AL22,AT22,BB22,BJ22,BR22,BZ22,CH22,CP22,CX22,DF22").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_2.ListIndex = 0
    ElseIf Platform_Type_Group_2 = "Aircraft" Then
        Range("E22").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_2.ListIndex = 0
    ElseIf Platform_Type_Group_2 = "Facility" Then
        Range("E22").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_2.ListIndex = 0
    ElseIf Platform_Type_Group_2 = "Ship" Then
        Range("E22").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_2.ListIndex = 0
    ElseIf Platform_Type_Group_2 = "Submarine" Then
        Range("E22").Value = "Weapon"
        Range("CP22,CX22,DF22").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_2.ListIndex = 0
    ElseIf Platform_Type_Group_2 = "Weapon" Then
        Range("E22").Value = "Weapon"
        Range("F22").Value = Range("D22").Value
        Range("DF22").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_2").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_2.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_2_Change()
    If Range("C22").Value = "Weapon" Then
        Range("F22").Value = Range("D22").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_3_Change()
    Dim Platform_Type_Group_3 As String
    Platform_Type_Group_3 = Range("C23").Value
    Range("V23,AD23,AL23,AT23,BB23,BJ23,BR23,BZ23,CH23,CP23,CX23").Value = 2
    Range("DF23").Value = 3

    If Platform_Type_Group_3 = ".None" Then
        Range("G23").Value = "5. STRIKE"
        Range("E23").Value = ".None/CAP/Sensor"
        Range("K23").Value = False
        Range("V23,AD23,AL23,AT23,BB23,BJ23,BR23,BZ23,CH23,CP23,CX23,DF23").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_3.ListIndex = 0
    ElseIf Platform_Type_Group_3 = "Aircraft" Then
        Range("E23").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_3.ListIndex = 0
    ElseIf Platform_Type_Group_3 = "Facility" Then
        Range("E23").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_3.ListIndex = 0
    ElseIf Platform_Type_Group_3 = "Ship" Then
        Range("E23").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_3.ListIndex = 0
    ElseIf Platform_Type_Group_3 = "Submarine" Then
        Range("E23").Value = "Weapon"
        Range("CP23,CX23,DF23").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_3.ListIndex = 0
    ElseIf Platform_Type_Group_3 = "Weapon" Then
        Range("E23").Value = "Weapon"
        Range("F23").Value = Range("D23").Value
        Range("DF23").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_3").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_3.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_3_Change()
    If Range("C23").Value = "Weapon" Then
        Range("F23").Value = Range("D23").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_4_Change()
    Dim Platform_Type_Group_4 As String
    Platform_Type_Group_4 = Range("C24").Value
    Range("V24,AD24,AL24,AT24,BB24,BJ24,BR24,BZ24,CH24,CP24,CX24").Value = 2
    Range("DF24").Value = 3

    If Platform_Type_Group_4 = ".None" Then
        Range("G24").Value = "5. STRIKE"
        Range("E24").Value = ".None/CAP/Sensor"
        Range("K24").Value = False
        Range("V24,AD24,AL24,AT24,BB24,BJ24,BR24,BZ24,CH24,CP24,CX24,DF24").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_4.ListIndex = 0
    ElseIf Platform_Type_Group_4 = "Aircraft" Then
        Range("E24").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_4.ListIndex = 0
    ElseIf Platform_Type_Group_4 = "Facility" Then
        Range("E24").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_4.ListIndex = 0
    ElseIf Platform_Type_Group_4 = "Ship" Then
        Range("E24").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_4.ListIndex = 0
    ElseIf Platform_Type_Group_4 = "Submarine" Then
        Range("E24").Value = "Weapon"
        Range("CP24,CX24,DF24").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_4.ListIndex = 0
    ElseIf Platform_Type_Group_4 = "Weapon" Then
        Range("E24").Value = "Weapon"
        Range("F24").Value = Range("D24").Value
        Range("DF24").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_4").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_4.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_4_Change()
    If Range("C24").Value = "Weapon" Then
        Range("F24").Value = Range("D24").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_5_Change()
    Dim Platform_Type_Group_5 As String
    Platform_Type_Group_5 = Range("C25").Value
    Range("V25,AD25,AL25,AT25,BB25,BJ25,BR25,BZ25,CH25,CP25,CX25").Value = 2
    Range("DF25").Value = 3

    If Platform_Type_Group_5 = ".None" Then
        Range("G25").Value = "5. STRIKE"
        Range("E25").Value = ".None/CAP/Sensor"
        Range("K25").Value = False
        Range("V25,AD25,AL25,AT25,BB25,BJ25,BR25,BZ25,CH25,CP25,CX25,DF25").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_5.ListIndex = 0
    ElseIf Platform_Type_Group_5 = "Aircraft" Then
        Range("E25").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_5.ListIndex = 0
    ElseIf Platform_Type_Group_5 = "Facility" Then
        Range("E25").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_5.ListIndex = 0
    ElseIf Platform_Type_Group_5 = "Ship" Then
        Range("E25").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_5.ListIndex = 0
    ElseIf Platform_Type_Group_5 = "Submarine" Then
        Range("E25").Value = "Weapon"
        Range("CP25,CX25,DF25").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_5.ListIndex = 0
    ElseIf Platform_Type_Group_5 = "Weapon" Then
        Range("E25").Value = "Weapon"
        Range("F25").Value = Range("D25").Value
        Range("DF25").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_5").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_5.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_5_Change()
    If Range("C25").Value = "Weapon" Then
        Range("F25").Value = Range("D25").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_6_Change()
    Dim Platform_Type_Group_6 As String
    Platform_Type_Group_6 = Range("C26").Value
    Range("V26,AD26,AL26,AT26,BB26,BJ26,BR26,BZ26,CH26,CP26,CX26").Value = 2
    Range("DF26").Value = 3

    If Platform_Type_Group_6 = ".None" Then
        Range("G26").Value = "5. STRIKE"
        Range("E26").Value = ".None/CAP/Sensor"
        Range("K26").Value = False
        Range("V26,AD26,AL26,AT26,BB26,BJ26,BR26,BZ26,CH26,CP26,CX26,DF26").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_6.ListIndex = 0
    ElseIf Platform_Type_Group_6 = "Aircraft" Then
        Range("E26").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_6.ListIndex = 0
    ElseIf Platform_Type_Group_6 = "Facility" Then
        Range("E26").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_6.ListIndex = 0
    ElseIf Platform_Type_Group_6 = "Ship" Then
        Range("E26").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_6.ListIndex = 0
    ElseIf Platform_Type_Group_6 = "Submarine" Then
        Range("E26").Value = "Weapon"
        Range("CP26,CX26,DF26").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_6.ListIndex = 0
    ElseIf Platform_Type_Group_6 = "Weapon" Then
        Range("E26").Value = "Weapon"
        Range("F26").Value = Range("D26").Value
        Range("DF26").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_6").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_6.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_6_Change()
    If Range("C26").Value = "Weapon" Then
        Range("F26").Value = Range("D26").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_7_Change()
    Dim Platform_Type_Group_7 As String
    Platform_Type_Group_7 = Range("C27").Value
    Range("V27,AD27,AL27,AT27,BB27,BJ27,BR27,BZ27,CH27,CP27,CX27").Value = 2
    Range("DF27").Value = 3

    If Platform_Type_Group_7 = ".None" Then
        Range("G27").Value = "5. STRIKE"
        Range("E27").Value = ".None/CAP/Sensor"
        Range("K27").Value = False
        Range("V27,AD27,AL27,AT27,BB27,BJ27,BR27,BZ27,CH27,CP27,CX27,DF27").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_7.ListIndex = 0
    ElseIf Platform_Type_Group_7 = "Aircraft" Then
        Range("E27").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_7.ListIndex = 0
    ElseIf Platform_Type_Group_7 = "Facility" Then
        Range("E27").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_7.ListIndex = 0
    ElseIf Platform_Type_Group_7 = "Ship" Then
        Range("E27").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_7.ListIndex = 0
    ElseIf Platform_Type_Group_7 = "Submarine" Then
        Range("E27").Value = "Weapon"
        Range("CP27,CX27,DF27").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_7.ListIndex = 0
    ElseIf Platform_Type_Group_7 = "Weapon" Then
        Range("E27").Value = "Weapon"
        Range("F27").Value = Range("D27").Value
        Range("DF27").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_7").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_7.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_7_Change()
    If Range("C27").Value = "Weapon" Then
        Range("F27").Value = Range("D27").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_8_Change()
    Dim Platform_Type_Group_8 As String
    Platform_Type_Group_8 = Range("C28").Value
    Range("V28,AD28,AL28,AT28,BB28,BJ28,BR28,BZ28,CH28,CP28,CX28").Value = 2
    Range("DF28").Value = 3

    If Platform_Type_Group_8 = ".None" Then
        Range("G28").Value = "5. STRIKE"
        Range("E28").Value = ".None/CAP/Sensor"
        Range("K28").Value = False
        Range("V28,AD28,AL28,AT28,BB28,BJ28,BR28,BZ28,CH28,CP28,CX28,DF28").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_8.ListIndex = 0
    ElseIf Platform_Type_Group_8 = "Aircraft" Then
        Range("E28").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_8.ListIndex = 0
    ElseIf Platform_Type_Group_8 = "Facility" Then
        Range("E28").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_8.ListIndex = 0
    ElseIf Platform_Type_Group_8 = "Ship" Then
        Range("E28").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_8.ListIndex = 0
    ElseIf Platform_Type_Group_8 = "Submarine" Then
        Range("E28").Value = "Weapon"
        Range("CP28,CX28,DF28").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_8.ListIndex = 0
    ElseIf Platform_Type_Group_8 = "Weapon" Then
        Range("E28").Value = "Weapon"
        Range("F28").Value = Range("D28").Value
        Range("DF28").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_8").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_8.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_8_Change()
    If Range("C28").Value = "Weapon" Then
        Range("F28").Value = Range("D28").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_9_Change()
    Dim Platform_Type_Group_9 As String
    Platform_Type_Group_9 = Range("C29").Value
    Range("V29,AD29,AL29,AT29,BB29,BJ29,BR29,BZ29,CH29,CP29,CX29").Value = 2
    Range("DF29").Value = 3

    If Platform_Type_Group_9 = ".None" Then
        Range("G29").Value = "5. STRIKE"
        Range("E29").Value = ".None/CAP/Sensor"
        Range("K29").Value = False
        Range("V29,AD29,AL29,AT29,BB29,BJ29,BR29,BZ29,CH29,CP29,CX29,DF29").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_9.ListIndex = 0
    ElseIf Platform_Type_Group_9 = "Aircraft" Then
        Range("E29").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_9.ListIndex = 0
    ElseIf Platform_Type_Group_9 = "Facility" Then
        Range("E29").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_9.ListIndex = 0
    ElseIf Platform_Type_Group_9 = "Ship" Then
        Range("E29").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_9.ListIndex = 0
    ElseIf Platform_Type_Group_9 = "Submarine" Then
        Range("E29").Value = "Weapon"
        Range("CP29,CX29,DF29").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_9.ListIndex = 0
    ElseIf Platform_Type_Group_9 = "Weapon" Then
        Range("E29").Value = "Weapon"
        Range("F29").Value = Range("D29").Value
        Range("DF29").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_9").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_9.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_9_Change()
    If Range("C29").Value = "Weapon" Then
        Range("F29").Value = Range("D29").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_10_Change()
    Dim Platform_Type_Group_A As String
    Platform_Type_Group_A = Range("C30").Value
    Range("V30,AD30,AL30,AT30,BB30,BJ30,BR30,BZ30,CH30,CP30,CX30").Value = 2
    Range("DF30").Value = 3

    If Platform_Type_Group_A = ".None" Then
        Range("G30").Value = "5. STRIKE"
        Range("E30").Value = ".None/CAP/Sensor"
        Range("K30").Value = False
        Range("V30,AD30,AL30,AT30,BB30,BJ30,BR30,BZ30,CH30,CP30,CX30,DF30").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_10.ListIndex = 0
    ElseIf Platform_Type_Group_A = "Aircraft" Then
        Range("E30").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_10.ListIndex = 0
    ElseIf Platform_Type_Group_A = "Facility" Then
        Range("E30").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_10.ListIndex = 0
    ElseIf Platform_Type_Group_A = "Ship" Then
        Range("E30").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_10.ListIndex = 0
    ElseIf Platform_Type_Group_A = "Submarine" Then
        Range("E30").Value = "Weapon"
        Range("CP30,CX30,DF30").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_10.ListIndex = 0
    ElseIf Platform_Type_Group_A = "Weapon" Then
        Range("E30").Value = "Weapon"
        Range("F30").Value = Range("D30").Value
        Range("DF30").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_10").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_10.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_10_Change()
    If Range("C30").Value = "Weapon" Then
        Range("F30").Value = Range("D30").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_11_Change()
    Dim Platform_Type_Group_B As String
    Platform_Type_Group_B = Range("C31").Value
    Range("V31,AD31,AL31,AT31,BB31,BJ31,BR31,BZ31,CH31,CP31,CX31").Value = 2
    Range("DF31").Value = 3

    If Platform_Type_Group_B = ".None" Then
        Range("G31").Value = "5. STRIKE"
        Range("E31").Value = ".None/CAP/Sensor"
        Range("K31").Value = False
        Range("V31,AD31,AL31,AT31,BB31,BJ31,BR31,BZ31,CH31,CP31,CX31,DF31").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_11.ListIndex = 0
    ElseIf Platform_Type_Group_B = "Aircraft" Then
        Range("E31").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_11.ListIndex = 0
    ElseIf Platform_Type_Group_B = "Facility" Then
        Range("E31").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_11.ListIndex = 0
    ElseIf Platform_Type_Group_B = "Ship" Then
        Range("E31").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_11.ListIndex = 0
    ElseIf Platform_Type_Group_B = "Submarine" Then
        Range("E31").Value = "Weapon"
        Range("CP31,CX31,DF31").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_11.ListIndex = 0
    ElseIf Platform_Type_Group_B = "Weapon" Then
        Range("E31").Value = "Weapon"
        Range("F31").Value = Range("D31").Value
        Range("DF31").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_11").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_11.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_11_Change()
    If Range("C31").Value = "Weapon" Then
        Range("F31").Value = Range("D31").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_12_Change()
    Dim Platform_Type_Group_C As String
    Platform_Type_Group_C = Range("C32").Value
    Range("V32,AD32,AL32,AT32,BB32,BJ32,BR32,BZ32,CH32,CP32,CX32").Value = 2
    Range("DF32").Value = 3

    If Platform_Type_Group_C = ".None" Then
        Range("G32").Value = "5. STRIKE"
        Range("E32").Value = ".None/CAP/Sensor"
        Range("K32").Value = False
        Range("V32,AD32,AL32,AT32,BB32,BJ32,BR32,BZ32,CH32,CP32,CX32,DF32").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_12.ListIndex = 0
    ElseIf Platform_Type_Group_C = "Aircraft" Then
        Range("E32").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_12.ListIndex = 0
    ElseIf Platform_Type_Group_C = "Facility" Then
        Range("E32").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_12.ListIndex = 0
    ElseIf Platform_Type_Group_C = "Ship" Then
        Range("E32").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_12.ListIndex = 0
    ElseIf Platform_Type_Group_C = "Submarine" Then
        Range("E32").Value = "Weapon"
        Range("CP32,CX32,DF32").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_12.ListIndex = 0
    ElseIf Platform_Type_Group_C = "Weapon" Then
        Range("E32").Value = "Weapon"
        Range("F32").Value = Range("D32").Value
        Range("DF32").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_12").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_12.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_12_Change()
    If Range("C32").Value = "Weapon" Then
        Range("F32").Value = Range("D32").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_13_Change()
    Dim Platform_Type_Group_D As String
    Platform_Type_Group_D = Range("C33").Value
    Range("V33,AD33,AL33,AT33,BB33,BJ33,BR33,BZ33,CH33,CP33,CX33").Value = 2
    Range("DF33").Value = 3

    If Platform_Type_Group_D = ".None" Then
        Range("G33").Value = "5. STRIKE"
        Range("E33").Value = ".None/CAP/Sensor"
        Range("K33").Value = False
        Range("V33,AD33,AL33,AT33,BB33,BJ33,BR33,BZ33,CH33,CP33,CX33,DF33").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_13.ListIndex = 0
    ElseIf Platform_Type_Group_D = "Aircraft" Then
        Range("E33").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_13.ListIndex = 0
    ElseIf Platform_Type_Group_D = "Facility" Then
        Range("E33").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_13.ListIndex = 0
    ElseIf Platform_Type_Group_D = "Ship" Then
        Range("E33").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_13.ListIndex = 0
    ElseIf Platform_Type_Group_D = "Submarine" Then
        Range("E33").Value = "Weapon"
        Range("CP33,CX33,DF33").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_13.ListIndex = 0
    ElseIf Platform_Type_Group_D = "Weapon" Then
        Range("E33").Value = "Weapon"
        Range("F33").Value = Range("D33").Value
        Range("DF33").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_13").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_13.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_13_Change()
    If Range("C33").Value = "Weapon" Then
        Range("F33").Value = Range("D33").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_14_Change()
    Dim Platform_Type_Group_E As String
    Platform_Type_Group_E = Range("C34").Value
    Range("V34,AD34,AL34,AT34,BB34,BJ34,BR34,BZ34,CH34,CP34,CX34").Value = 2
    Range("DF34").Value = 3

    If Platform_Type_Group_E = ".None" Then
        Range("G34").Value = "5. STRIKE"
        Range("E34").Value = ".None/CAP/Sensor"
        Range("K34").Value = False
        Range("V34,AD34,AL34,AT34,BB34,BJ34,BR34,BZ34,CH34,CP34,CX34,DF34").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_14.ListIndex = 0
    ElseIf Platform_Type_Group_E = "Aircraft" Then
        Range("E34").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_14.ListIndex = 0
    ElseIf Platform_Type_Group_E = "Facility" Then
        Range("E34").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_14.ListIndex = 0
    ElseIf Platform_Type_Group_E = "Ship" Then
        Range("E34").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_14.ListIndex = 0
    ElseIf Platform_Type_Group_E = "Submarine" Then
        Range("E34").Value = "Weapon"
        Range("CP34,CX34,DF34").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_14.ListIndex = 0
    ElseIf Platform_Type_Group_E = "Weapon" Then
        Range("E34").Value = "Weapon"
        Range("F34").Value = Range("D34").Value
        Range("DF34").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_14").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_14.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_14_Change()
    If Range("C34").Value = "Weapon" Then
        Range("F34").Value = Range("D34").Value
    End If
End Sub

Private Sub SP_PlatformType_Group_15_Change()
    Dim Platform_Type_Group_F As String
    Platform_Type_Group_F = Range("C35").Value
    Range("V35,AD35,AL35,AT35,BB35,BJ35,BR35,BZ35,CH35,CP35,CX35").Value = 2
    Range("DF35").Value = 3

    If Platform_Type_Group_F = ".None" Then
        Range("G35").Value = "5. STRIKE"
        Range("E35").Value = ".None/CAP/Sensor"
        Range("K35").Value = False
        Range("V35,AD35,AL35,AT35,BB35,BJ35,BR35,BZ35,CH35,CP35,CX35,DF35").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_None_NoUnit"
        SP_PlatformName_Group_15.ListIndex = 0
    ElseIf Platform_Type_Group_F = "Aircraft" Then
        Range("E35").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_Aircraft_Name"
        SP_PlatformName_Group_15.ListIndex = 0
    ElseIf Platform_Type_Group_F = "Facility" Then
        Range("E35").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_Facilities_Name"
        SP_PlatformName_Group_15.ListIndex = 0
    ElseIf Platform_Type_Group_F = "Ship" Then
        Range("E35").Value = "Weapon"
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_Ships_Name"
        SP_PlatformName_Group_15.ListIndex = 0
    ElseIf Platform_Type_Group_F = "Submarine" Then
        Range("E35").Value = "Weapon"
        Range("CP35,CX35,DF35").Value = 1
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_Submarines_Name"
        SP_PlatformName_Group_15.ListIndex = 0
    ElseIf Platform_Type_Group_F = "Weapon" Then
        Range("E35").Value = "Weapon"
        Range("F35").Value = Range("D35").Value
        Range("DF35").Value = 2
        Worksheets("Strike Planner").OLEObjects("SP_PlatformName_Group_15").ListFillRange = "Range_Weapons_Name"
        SP_PlatformName_Group_15.ListIndex = 0
    End If
End Sub

Private Sub SP_PlatformName_Group_15_Change()
    If Range("C35").Value = "Weapon" Then
        Range("F35").Value = Range("D35").Value
    End If
End Sub
***********************************************************************************************************************



*********************************
*********************************
**                             **
**  SHEET SORTED LAUNCH ORDER  **
**                             **
*********************************
*********************************

D9: Group ID [Sorted by ranking]
  =
  IF(ISERROR(VLOOKUP(1;'Strike Planner'!$EB$21:$EE$35;4;FALSE));"";
  VLOOKUP(1;'Strike Planner'!$EB$21:$EE$35;4;FALSE))

F9: Mission Launch/Execution Time
  =
  IF($D9="";"";
  LOOKUP($D9;'Strike Planner'!$B$21:$B$35;'Strike Planner'!$EA$21:$EA$35))

H9: Launch-Time L+			
  =
  IF($D9="";"";
  "LAUNCH-TIME L+")

H10-H23 Launch-Time L+
  =
  IF($D10="";"";
  "L+")

I9: Delta time [Relative time difference to first ranking group]		
  =
  IF($D10="";"";
  0)
  
I10-I23: Delta time [Relative time difference to first ranking group]  
  =
  IF($D10="";"";
  F10-$F$9)


********************************
********************************
**                            **
**  SHEET TAKE-OFF CONFLICTS  **
**                            **
********************************
********************************

C11: Platform Name of Group that is checked vs the other groups [As reference]
  =
  IF('Strike Planner'!$C21=".None";"";
  'Strike Planner'!$D21)

Q11: Conflict Check Group 1 vs Group 15
  =
  IF(OR('Strike Planner'!$C21<>"Aircraft";'Strike Planner'!$K21=TRUE);"";
  IF(OR('Strike Planner'!$C$35<>"Aircraft";'Strike Planner'!$K$35=TRUE);"";
  IF(AND('Strike Planner'!$J21='Strike Planner'!$J$35;OR(ABS('Strike Planner'!$EA21-'Strike Planner'!$EA$35)<='Strike Planner'!$R21;ABS('Strike Planner'!$EA21-'Strike Planner'!$EA$35)<='Strike Planner'!$R$35));"CONFLICT";
  "")))


